import Data.List

lengthEquals1 :: [a] -> Bool
lengthEquals1 xs = length xs == 1

main = do
    c <- getContents
    putStr $ head $ head $ filter lengthEquals1 $ group $ sort $ words $ tail c